home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
ttt5.arc
/
DEMO4.EXE
/
lha
/
FASTDEM1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-01-31
|
766b
|
25 lines
Program FastTTT5_Demo_1;
Uses Crt, FastTTT5;
var Ch : char;
begin
ClearText(1,1,80,25,white,black);
WriteCenter(1,yellow,black,'TechnoJocks');
WriteCenter(2,yellow,black,'Turbo');
WriteCenter(3,yellow,black,'Toolkit');
VertLine(32,1,3,yellow,black,1);
VertLine(49,1,3,yellow,black,1);
Box(1,5,30,10,white,blue,1);
WriteBetween(1,30,6,white,black,'Hollow Box');
GrowFBox(50,5,80,10,white,blue,2);
WriteAt(52,9,white,blue,'Filled Box');
Attrib(20,15,60,19,yellow,blue);
PlainWrite(11,17,'Written by PlainWrite');
ColWrite(50,17,'Written by ColWrite');
HorizLine(1,80,24,lightblue,black,1);
ClickWrite(1,25,lightgreen,black,'That''s all folks');
Ch := Readkey;
clrscr;
end.